<!--#Include File="../conn.asp" -->
<!--#Include File="comm/inc.asp" -->
<%
'====================================================================
'= Team Elite - Elite Article System
'= Copyright (c) 2005 - 2006 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
'= 版权协议：
'=	GPL (The GNU GENERAL PUBLIC LICENSE Version 2, June 1991)
'=-------------------------------------------------------------------
'= 文件名称：/Manager/Admin_Main.asp
'= 摘    要：后台-控制台文件
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-10-21
'====================================================================

	Call EA_Manager.Chk_IsMaster
		
	Dim theInstalledObjects(17)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"
    theInstalledObjects(2) = "MSWC.NextLink"
    theInstalledObjects(3) = "MSWC.Tools"
    theInstalledObjects(4) = "MSWC.Status"
    theInstalledObjects(5) = "MSWC.Counters"
    theInstalledObjects(6) = "IISSample.ContentRotator"
    theInstalledObjects(7) = "IISSample.PageCounter"
    theInstalledObjects(8) = "MSWC.PermissionChecker"
    theInstalledObjects(9) = "Scripting.FileSystemObject"
    theInstalledObjects(10) = "adodb.connection"
    
    theInstalledObjects(11) = "SoftArtisans.FileUp"
    theInstalledObjects(12) = "SoftArtisans.FileManager"
    theInstalledObjects(13) = "JMail.SMTPMail"
    theInstalledObjects(14) = "CDONTS.NewMail"
    theInstalledObjects(15) = "Persits.MailSender"
    theInstalledObjects(16) = "LyfUpload.UploadFile"
    theInstalledObjects(17) = "Persits.Upload.1"
    
    Dim RegUser,TopicNum,ColumnNum,MangerTopicNum,ReviewNum
    Dim UserGroup_Array,GroupList
    Dim i
    
    RegUser=0
    TopicNum=0
    ColumnNum=0
    MangerTopicNum=0
    ReviewNum=0
    
    Sql="select reguser,topicnum,ColumnNum,MangerTopicNum,ReviewNum from [nb_system]"
    set rs=conn.execute(sql)
    If Not rs.eof And Not rs.bof Then 
		RegUser=rs(0)
		TopicNum=rs(1)
		ColumnNum=rs(2)
		MangerTopicNum=rs(3)
		ReviewNum=rs(4)
	End If
	
	Rs.Close
	Set Rs=Nothing

	PageContent=Template.LoadTemplate("admin_main.htm")
	
	Template.SetVariable "Language_SystemInformation",str_SystemInformation,PageContent
	Template.SetVariable "Language_SystemStat",str_SystemStat,PageContent
	Template.SetVariable "Language_Column",str_Column,PageContent
	Template.SetVariable "Language_Article",str_Article,PageContent
	Template.SetVariable "Language_AuditArticle",str_AuditArticle,PageContent
	Template.SetVariable "Language_RegUser",str_RegUser,PageContent
	Template.SetVariable "Language_Review",str_Review,PageContent
	Template.SetVariable "Language_SystemOwner",str_SystemOwner,PageContent
	Template.SetVariable "Language_SystemVersion",str_SystemVersion,PageContent
	Template.SetVariable "Language_ServerWindow",str_ServerWindow,PageContent
	Template.SetVariable "Language_ScripEngine",str_ScripEngine,PageContent
	Template.SetVariable "Language_SiteFolderPath",str_SiteFolderPath,PageContent
	Template.SetVariable "Language_FSOEnable",str_FSOEnable,PageContent
	Template.SetVariable "Language_ADOEnable",str_ADOEnable,PageContent
	Template.SetVariable "Language_JMailEnable",str_JMailEnable,PageContent
	Template.SetVariable "Language_CDONTSEnable",str_CDONTSEnable,PageContent
	Template.SetVariable "Language_MoreSystemInformation",str_MoreSystemInformation,PageContent
	Template.SetVariable "Language_SystemManagerShortcut",str_SystemManagerShortcut,PageContent
	Template.SetVariable "Language_QuickSearchArticle",str_QuickSearchArticle,PageContent
	Template.SetVariable "Language_SearchNow",str_SearchNow,PageContent
	Template.SetVariable "Language_QuickSearchUser",str_QuickSearchUser,PageContent
	Template.SetVariable "Language_UserGroup",str_UserGroup,PageContent
	Template.SetVariable "Language_FunctionShortcut",str_FunctionShortcut,PageContent
	Template.SetVariable "Language_ColumnAdmin",str_ColumnAdmin,PageContent
	Template.SetVariable "Language_ArticleAdmin",str_ArticleAdmin,PageContent
	Template.SetVariable "Language_ReLoadCache",str_ReLoadCache,PageContent
	Template.SetVariable "Language_ProductInformation",str_ProductInformation,PageContent
	Template.SetVariable "Language_ProductCopyright",str_ProductCopyright,PageContent
	Template.SetVariable "Language_AboutMe",str_AboutMe,PageContent
	Template.SetVariable "Language_UseGuide",str_UseGuide,PageContent

	Template.SetVariable "ColumnTotal",ColumnNum,PageContent
	Template.SetVariable "TopicTotal",TopicNum,PageContent
	Template.SetVariable "MangerTopicTotal",MangerTopicNum,PageContent
	Template.SetVariable "UserTotal",RegUser,PageContent
	Template.SetVariable "CommentTotal",ReviewNum,PageContent
	Template.SetVariable "SystemOwner",EA_Pub.SysInfo(0),PageContent
	Template.SetVariable "SystemVersion",SysVersion,PageContent
	If iDataBaseType=0 Then 
		Template.SetVariable "DatabaseVersion","Access",PageContent
	Else
		Template.SetVariable "DatabaseVersion","SQL Server",PageContent
	End If
	Template.SetVariable "Request_OS",Request.ServerVariables("OS"),PageContent
	Template.SetVariable "Request_Local",Request.ServerVariables("LOCAL_ADDR"),PageContent
	Template.SetVariable "Request_Path",Request.ServerVariables("APPL_PHYSICAL_PATH"),PageContent
	Template.SetVariable "ScriptEngine",ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion,PageContent
	If Not EA_Manager.IsObjInstalled(theInstalledObjects(9)) Then
		Template.SetVariable "FSOEnable",str_IconDisabled,PageContent
	Else
		Template.SetVariable "FSOEnable",str_IconEnabled,PageContent
	End If
	If Not EA_Manager.IsObjInstalled(theInstalledObjects(10)) Then
		Template.SetVariable "ADOEnable",str_IconDisabled,PageContent
	Else
		Template.SetVariable "ADOEnable",str_IconEnabled,PageContent
	End If
	If Not EA_Manager.IsObjInstalled(theInstalledObjects(13)) Then
		Template.SetVariable "JMailEnable",str_IconDisabled,PageContent
	Else
		Template.SetVariable "JMailEnable",str_IconEnabled,PageContent
	End If
	If Not EA_Manager.IsObjInstalled(theInstalledObjects(14)) Then
		Template.SetVariable "CDONTSEnable",str_IconDisabled,PageContent
	Else
		Template.SetVariable "CDONTSEnable",str_IconEnabled,PageContent
	End If

	Template.SetVariable "a",EA_Pub.SysInfo(11),PageContent
	Template.SetVariable "b",EA_Pub.SysInfo(0),PageContent
	Template.SetVariable "c",RegUser,PageContent
	Template.SetVariable "d",TopicNum,PageContent
	Template.SetVariable "e",BowelVersion,PageContent
	Template.SetVariable "f",iDataBaseType,PageContent
	
	Template.BaseReplace PageContent
	Template.OutStr PageContent

	Call EA_Pub.Close_Obj
	Set EA_Pub=Nothing
%>